home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / ancient / search / ltdata / tab.dir / 00115_Script_PAGE SLIDER < prev    next >
Text File  |  1995-11-24  |  1KB  |  59 lines
  1. on exitFrame
  2.   --
  3.   go the frame 
  4.   
  5.   if rollOver(1) then  
  6.     doStrip 
  7.   else
  8.     -- put empty into field "feedBack"
  9.     set the visible of sprite 4 = 0  
  10.   end if
  11.   --
  12. end
  13.  
  14. on doStrip
  15.   --
  16.   GLOBAL gPagePtr
  17.   
  18.   set stripSprite = 1
  19.   set pointerSprite = 3
  20.   set feedBackSprite = 4
  21.   
  22.   set maxPage = 150
  23.   set X = the mouseH + 0.0                     -- must add 0.0 for real math
  24.   set W = the width of cast "strip"
  25.   set origin = the left of sprite stripSprite
  26.   set D = X - origin + 0.0
  27.   
  28.   -- testForSkipped W, origin, X
  29.   
  30.   -- D/W  is the fractional distance of the mouseH 
  31.   -- between the left and right edges of the strip sprite
  32.   
  33.   set gPagePtr = integer(D/W * maxPage)   
  34.   
  35.   put gPagePtr into field "feedback"
  36.   puppetSprite pointerSprite, TRUE
  37.   puppetSprite feedBackSprite, TRUE
  38.   set the locH of sprite pointerSprite = X
  39.   
  40.   
  41.   set the locH of sprite feedBackSprite = X - (the width of sprite feedBackSprite/2)
  42.   -- 
  43.   -- set the locH of sprite feedBackSprite = the left of sprite pointerSprite
  44.   -- set the visible of sprite pointerSprite = 1
  45.   set the visible of sprite feedBackSprite = 1
  46.   updateStage
  47.   
  48.   --
  49. end
  50.  
  51. on testForSkipped W, origin, X
  52.   --
  53.   repeat with i =  1 to W
  54.     set D = origin + i - origin
  55.     set Z = integer( 100 * D/W )
  56.     put W && D && Z
  57.   end repeat
  58.   --
  59. end